﻿Imports BUS


Public Class frmChiTietNhanVien

    Private Sub frmChiTietNhanVien_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim dt As DataTable = TaiKhoan_BUS.loadAllInfoOfNhanVien(frmDangNhap.user)

        With dt '
            For Each r As DataRow In .Rows
                lblTenNhanVien.Text = r(0).ToString
                lblGioiTinh.Text = r(1).ToString
                lblNgaySinh.Text = r(2).ToString
                lblDiaChi.Text = r(3).ToString
                lblDienThoai.Text = r(4).ToString
                lblCMND.Text = r(5).ToString
                lblTenNhanVien.Text = r(6).ToString
            Next
        End With

    End Sub
End Class